Changes between Version 2 and Version 3 of RarSourceCodes

Timestamp:

Aug 8, 2009, 1:53:46 AM (15 years ago)

Author:

guest

Comment:

Added Ruby (not done yet)

RarSourceCodes

@@ -68 +68 @@
 print 'use this valuse on opensubtiles.com\n\tsize is: %d\n\thash is: %s' % (size,hash)
 }}}
+
+== Ruby ==
+
+'''''Noncomplete translation of Python-code.'''''
+
+{{{
+def getlastsplit(firsrarfile, x)
+    return firsrarfile[0..-3] + ('%03d' % (x+1)) if firsrarfile[-3..-1] == '001'
+    return firsrarfile[0..-6] + ('%02d' % (x+1)) + firsrarfile[-4..-1] if firsrarfile[-11..-6] == '.part'
+    return firsrarfile[0..-5] + ('%1d' % (x+1)) + firsrarfile[-4..-1] if firsrarfile[-10..-5] == '.part'
+    return firsrarfile[0..-2] + ('%02d' % (x-1))
+end
+
+def addfilehash(name, hash, seek)
+    f = File.open(name, 'rb')
+    f.seek(seek)
+    8192.times do |i|
+        hash += f.read(8).unpack('q')[0]
+        hash = hash & 0xffffffffffffffff
+    end
+    return hash
+end
+
+# Hash file in rar split archive. -> (size,hash)
+def OpensubtitlesHashRar(firsrarfile)
+    raise 'Bad file suffix. Only .rar and .001 support.' unless firsrarfile.downcase =~ /\.rar$/ || firsrarfile  =~ /\.001$/
+        
+    firsrarfile = firsrarfile[0..-6] + '01' + firsrarfile[-4..-1] if firsrarfile[-11..-6] == '.part'
+        
+    f = File.open(firsrarfile, 'rb')
+    a = f.read(4)
+    raise 'ERROR: This is not rar file.' if a != 'Rar!'
+        
+    seek = 0
+    4.times do |i|
+        f.seek(seek)
+        a = f.read(100)
+        type, flag, size = a[2..7].unpack('Cvv') 
+        puts [type, flag, size].inspect
+        if 0x74 == type
+            raise 'Bad compression method! Work only for "store".' if 0x30 != a[25..26].unpack('C')[0]
+                
+            s_partiizebodystart = seek + size
+            s_partiizebody, s_unpacksize = a[7..15].unpack('<II')
+            if flag & 0x0100
+                s_unpacksize = (a[36..40].unpack('<I')[0] << 32) + s_unpacksize
+                puts 'Hash untested for files biger that 2gb. May work or may generate bad hash.'
+            end
+            lastrarfile = getlastsplit(firsrarfile, (s_unpacksize-1) / s_partiizebody)
+            hash = addfilehash(firsrarfile, s_unpacksize, s_partiizebodystart)
+            hash = addfilehash(lastrarfile, hash, (s_unpacksize % s_partiizebody) + s_partiizebodystart - 65536)
+            return [s_unpacksize, "%016x" % hash]
+        end
+        seek += size
+    end
+    raise 'ERROR: Not Body part in rar file.'
+end
+
+#example
+firsrarsplitfile=ARGV[0]
+size, hash = OpensubtitlesHashRar(firsrarsplitfile)
+puts('use this valuse on opensubtiles.com\n\tsize is: %d\n\thash is: %s' % [size, hash])
+}}}